home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / nieuûytki / macwb 0.2up / src / patch.a < prev   
Text File  |  1977-12-31  |  2KB  |  99 lines
  1. *
  2. *
  3. *    don't take this source to serious - it's only a hack!
  4. *
  5. *
  6.  
  7.     OPT !
  8.     
  9. ******************************************************
  10.  
  11.     MACHINE 68000
  12.  
  13. ******************************************************
  14.  
  15.     INCDIR    INCLUDE:
  16.     INCLUDE    exec/funcdef.i
  17.     INCLUDE    exec/exec_lib.i
  18.     INCLUDE    exec/tasks.i
  19.     INCLUDE    exec/macros.i
  20.     INCLUDE    exec/execbase.i
  21.     INCLUDE    intuition/intuition.i
  22.  
  23. ******************************************************
  24.  
  25.     SECTION TEXT,CODE
  26.  
  27. ******************************************************
  28.  
  29.     XDEF    _NewVector1
  30.     XDEF _OldVector1
  31.     XDEF    _NewVector2
  32.     XDEF _OldVector2
  33.  
  34. ******************************************************
  35.  
  36.     XREF    _Before_OpenWindow
  37.     XREF    _After_OpenWindow
  38.     XREF    _Before_CloseWindow
  39.     XREF    _After_CloseWindow
  40.  
  41. ******************************************************
  42.  
  43. _NewVector1:
  44.  
  45.     movem.l    d1-d7/a0-a6,-(SP)
  46.     moveq    #0,d7
  47.     move.l    a0,-(SP)
  48.     jsr        _Before_OpenWindow
  49.     move.l    (SP)+,a0
  50.     btst.l    #0,d0
  51.     beq.b    yes
  52.     move.l    d0,d7
  53. ;    and.l    #-2,d7
  54.     bclr.l    #0,d7
  55. yes
  56.     and.l    #-2,d0        ; clear the indicator flag 
  57. nope    move.l    d0,a1
  58.  
  59.     move.l    d7,-(SP)
  60.     dc.w     $4EB9
  61. _OldVector1:            ; JSR $00000000.l
  62.     dc.l     0
  63.     move.l    (SP)+,d7
  64.  
  65.     tst.l    d7
  66.     beq.b    nope2
  67.     move.l    d0,-(SP)
  68.     move.l    d0,a0
  69.     move.l    d7,a1
  70.     jsr        _After_OpenWindow
  71.     move.l    (SP)+,d0
  72. nope2
  73.     movem.l    (SP)+,d1-d7/a0-a6
  74.     rts
  75.  
  76. ******************************************************
  77.  
  78. _NewVector2:
  79.  
  80.     movem.l    d0-d7/a0-a6,-(SP)
  81.     move.l    a0,-(SP)
  82.     jsr        _Before_CloseWindow
  83.     move.l    (SP)+,a0
  84.     move.l    d0,-(SP)
  85.     dc.w     $4EB9
  86. _OldVector2:
  87.     dc.l     0
  88.     move.l    (SP)+,a1
  89.     jsr        _After_CloseWindow
  90. .skip
  91.     movem.l    (SP)+,d0-d7/a0-a6
  92.     rts
  93.  
  94. ******************************************************
  95.  
  96.     END
  97.  
  98. ******************************************************
  99.